home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / smallc.arc / FLOOR.C < prev    next >
Text File  |  1985-07-17  |  640b  |  30 lines
  1.  
  2. /***********************************************************
  3.  *               The TULSA IBM C BOARD                     *
  4.  *                   918-664-8737                          *
  5.  *             300/1200 XMODEM, 24 Hours                   *
  6.  **********************************************************/
  7.  
  8.  
  9. #include "math.h"
  10.  
  11. double floor(d)
  12. double d;
  13. {
  14.         if (d < 0.0)
  15.                 return -ceil(-d);
  16.         modf(d, &d);
  17.         return d;
  18. }
  19.  
  20. double ceil(d)
  21. double d;
  22. {
  23.         if (d < 0.0)
  24.                 return -floor(-d);
  25.         if (modf(d, &d) > 0.0)
  26.                 ++d;
  27.         return d;
  28. }
  29.  
  30.